home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / dalla rivista / host contacted / imengv3.41p2.lha / ImEngV3.41p2 / Extra / ADPro / ADPro_Export.rexx < prev    next >
OS/2 REXX Batch file  |  1997-01-09  |  1KB  |  72 lines
  1. /*
  2. ** $VER: ADPro_Export 1.11 (9/1 1997 Stockholm/Sweden)
  3. **
  4. ** Copyright © 1997 by Patrik M Nydensten
  5. **
  6. ** This arexx script will export the PRIMARY image in
  7. ** ImageEngineer to ADPro. Both programs must be running at
  8. ** the same time.
  9. ** This script requires ADPro v2.5.0 (or higher)
  10. ** and ImageEngineer 3.0 (or higher).
  11. **
  12. */
  13.  
  14. OPTIONS RESULTS
  15. SIGNAL ON ERROR
  16. TEMP_FILE = 't:Image_from_IE'
  17.  
  18. if arg()==0 then exit
  19.  
  20. /* Main code */
  21.  
  22. IF ~SHOW(PORTS,'ADPro') THEN DO
  23.      'REQUEST' '"Could not locate ADPro'x2c(27)'s arexx port!"' '" OK "'
  24.     CALL ErrorOut 10
  25. END
  26.  
  27. 'SAVE_DATA' arg(1) '"'||TEMP_FILE||'"' '"ILBM CmpByteRun1"'
  28. IF (RC ~= 0) THEN DO
  29.      'REQUEST' '"Error when saving image from IE!"' '" OK "'
  30.     CALL ErrorOut 10
  31. END
  32.  
  33. ADDRESS "ADPro"
  34.  
  35. ADPRO_TO_FRONT
  36.  
  37. LOADER "UNIVERSAL" TEMP_FILE
  38. IF (RC ~= 0) THEN DO
  39.   ADDRESS 'IMAGEENGINEER'
  40.      'REQUEST' '"Error when loading image into ADPro!"' '" OK "'
  41.     CALL ErrorOut 10
  42. END
  43.  
  44. CALL ErrorOut 0
  45.  
  46. /* Errorout procedure */
  47.  
  48. ErrorOut:
  49.     PARSE ARG ExitCode
  50.  
  51.     IF (EXISTS( TEMP_FILE )) THEN DO
  52.       ADDRESS COMMAND "Delete >NIL:" TEMP_FILE
  53.   END
  54.   
  55.     EXIT ExitCode
  56.  
  57. /* IE's error procedure */
  58.  
  59. Error:
  60. if RC=5 then do
  61.     IE_TO_FRONT
  62.     LAST_ERROR
  63.     'REQUEST "'||RESULT||'"'
  64.     exit
  65. end
  66. else do
  67.     IE_TO_FRONT
  68.     LAST_ERROR
  69.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  70.     exit
  71. end
  72.